home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / OTHER_LA / 3195.ZIP / PCDOSHDR < prev   
Text File  |  1991-06-01  |  2KB  |  50 lines
  1. // Free BCPL - PCDOSHDR Header for PC-DOS dependent RTS interface Version 1.5
  2.  
  3. global  $(          // private globals used by RTS
  4.  
  5. INITRTS     : 99 // (bot,top)   - initialise RTS (bot&top passed to initheap)
  6. STREAMS     :100 // vec         - streams descriptor (holds state and ungot ch)
  7. CURIN       :101 // #           - current input stream
  8. CUROUT      :102 // #           - current output stream
  9. A.HEAPBASE  :103 // #           - base of heap area
  10. A.HEAPTOP   :104 // #           - top of heap area
  11. A.HEAPFREE  :105 // #           - free location in heap area
  12. A.STACKBASE :106 // #           - base of BCPL stack
  13. A.STACKTOP  :107 // #           - maximum BCPL stack
  14. DEBUGINTERN :108 // ()          - internal debug functions
  15. JMPGLOB     :109 // ()          - interrupt handler for resident RTS
  16.     $)
  17.  
  18. manifest $(         // stream error/status flags
  19.  
  20. S.ERROR         = #x8000
  21. S.EOF           = #x4000
  22. S.UNGOT         = #x2000
  23. S.BINARY        = #x1000
  24. S.DEFAULT       = #x0800
  25. S.BUFFERED      = #x0400
  26. S.INPUT         = #x0200
  27. S.OUTPUT        = #x0100
  28.  
  29.     $)
  30.  
  31. manifest $(         // stream buffer offsets
  32.  
  33.     S.BUFLEN    = 512 // bytes
  34.     S.BUFPTR    = -1
  35.     S.BUFMAX    = -2
  36.     S.BUFEXTRA  = 2
  37.  
  38.     $)
  39.  
  40.  
  41. manifest $(         // some PSP header entries
  42.  
  43. PSP.NXTSEG  = 1     // ! paragraph number following top of memory
  44. PSP.SEGLEN  = 3     // ! length of this segment in bytes
  45. PSP.ENVSEG  = 22    // ! segment of environment strings
  46.  
  47.     $)
  48.  
  49.  
  50.